;;
;; unipose-data.lisp - Unicode character composition data
;;

(in-package :unipose)

(defvar *unipose*
  '((?1 ((?2 ?½) (?4 ?¼) (?^ ?¹)))
    (?2 ((?^ ?²)))
    (?3 ((?^ ?³) (?4 ?¾)))
    (?8 ((?8 ?∞)))
    (?A ((?^ ?Â) (?' ?Á) (?` ?À) (?\" ?Ä) (?E ?Æ) (?o ?Å)))
    (?a ((?^ ?â) (?' ?á) (?` ?à) (?\" ?ä) (?e ?æ) (?o ?å) (?_ ?ª) (?p ?)))
    (?B ((?B ?ß)))
    (?c (((?0 ?O) ?©) ((?/ ?|) ?¢) (?, ?ç) (?* ?☪) (?C ?￠)))
    (?C (((?0 ?O) ?©) ((?/ ?|) ?￠) (?, ?Ç) (?* ?☪)))
    (?D ((?D ?∆) (?- ?Ð)))
    (?d ((?g ?˚)))
    (?E ((?^ ?Ê) (?' ?É) (?` ?È) (?\" ?Ë) ((?~ ?- ?=) ?€)))
    (?f ((?f ?ƒ)))
    (?e ((?^ ?ê) (?' ?é) (?` ?è) (?\" ?ë) ((?~ ?- ?=) ?€)))
    (?I ((?^ ?Î) (?' ?Í) (?` ?Ì) (?\" ?Ï)))
    (?i ((?^ ?î) (?' ?í) (?` ?ì) (?\" ?ï)))
    (?L ((?L ?λ)))
    (?l ((?l ?λ)))
    (?O ((?^ ?Ô) (?' ?Ó) (?` ?Ò) (?\" ?Ö) (?E ?Œ) (?O ?Ω)))
    (?o ((?^ ?ô) (?' ?ó) (?` ?ò) (?\" ?ö) (?e ?œ) (?_ ?º)))
    (?P ((?P ?¶)))
    (?r (((?0 ?O ?o) ?®)))
    (?S ((?S ?∑)))
    (?s ((?e ?§) (?r ?√)))
    (?t (((?M ?m) ?™)))
    (?T (((?M ?m) ?™)))
    (?U ((?^ ?Û) (?' ?Ú) (?` ?Ù) (?\" ?Ü)))
    (?u ((?^ ?û) (?' ?ú) (?` ?ù) (?\" ?ü)))
    (?^ (;; captial circumflex
	 (?A ?Â) (?C ?Ĉ) (?E ?Ê) (?G ?Ĝ) (?H ?Ĥ) (?I ?Î) (?J ?Ĵ)
	 (?O ?Ô) (?S ?Ŝ) (?U ?Û) (?W ?Ŵ) (?Y ?Ŷ)
	 ;; lower circumflex
	 (?a ?â) (?c ?ĉ) (?e ?ê) (?g ?ĝ) (?h ?ĥ) (?i ?î) (?j ?ĵ)
	 (?o ?ô) (?s ?ŝ) (?u ?û) (?w ?ŵ) (?y ?ŷ)))
    (?' (;; capital acute
	 (?A ?Á) (?E ?É) (?I ?Í) (?O ?Ó) (?U ?Ú) (?W ?Ẃ) (?Y ?Ý)
	 ;; lower acute
	 (?a ?á) (?e ?é) (?i ?í) (?o ?ó) (?u ?ú) (?w ?ẃ) (?y ?ý)
	 ;; misc acute
	 (?' ?´) (?< ?‘) (?> ?’)))
    (?` (;; capital grave
	 (?A ?À) (?E ?È) (?I ?Ì) (?O ?Ò) (?U ?Ù) (?W ?Ẁ) (?Y ?Ỳ)
	 ;; lower greve
	 (?a ?à) (?e ?è) (?i ?ì) (?o ?ò) (?u ?ù) (?w ?ẁ) (?y ?ỳ)))
    (?\" (;; capital umlat
	  (?A ?Ä) (?E ?Ë) (?I ?Ï) (?O ?Ö) (?U ?Ü) (?W ?Ẅ) (?Y ?Ÿ)
	  ;; lower umlat
	  (?a ?ä) (?e ?ë) (?i ?ï) (?o ?ö) (?u ?ü) (?w ?ẅ) (?y ?ÿ)
	  (?v ?„) (?< ?“) (?> ?”)))
    (?~ (;; upper twiddles
	 (?A ?Ã) (?C ?Ç) (?D ?Ð) (?G ?Ğ) (?N ?Ñ) (?T ?Þ) (?U ?Ŭ)
	 ;; lower twiddles
	 (?a ?ã) (?c ?ç) (?d ?ð) (?g ?ğ) (?n ?ñ) (?t ?þ) (?u ?ŭ)
	 ;; misc twiddles
	 (?e ?€) (?p ?¶) (?s ?§) (?u ?µ) (?x ?¤) (?? ?¿) (?! ?¡)
	 (?$ ?£) (?. ?·) (?< ?«) (?> ?»)))
    (?! ((?! ?‼) (?v ?¡) (?? ?⁉) (?/ ?❢)))
    (?? ((?v ?¿)))
    (?/ ((?O ?Ø) (?o ?ø) (?c ?¢)))
    (?+ ((?- ?±) (?+ ?†)))
    (?- ((?+ ?±) (?: ?÷)))
    (?= ((?/ ?≠) (?/ ?≠) (?~ ?≈)))
    (?_ ((?^ ?¯)))
    (?< ((?= ?≤) (?< ?«)))
    (?> ((?= ?≥) (?> ?»)))
    (?: ((?- ?÷)))
    (?. ((?o ?•) (?. ?·) (?- ?⋅) (?^ ?˚)))
    (?% ((?% ?‰))))
  "Unicode compose character lists.")

;; EOF
